home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / health / summary.frm < prev    next >
Text File  |  1993-07-22  |  9KB  |  311 lines
  1. VERSION 2.00
  2. Begin Form summary 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   4170
  6.    ClientLeft      =   1020
  7.    ClientTop       =   1425
  8.    ClientWidth     =   7305
  9.    Height          =   4575
  10.    Left            =   960
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   4170
  14.    ScaleWidth      =   7305
  15.    Tag             =   "summary"
  16.    Top             =   1080
  17.    Width           =   7425
  18.    Begin AniPushButton AniButton2 
  19.       BackColor       =   &H00FFFFFF&
  20.       Height          =   480
  21.       Left            =   4035
  22.       PictDrawMode    =   1  'Autosize control
  23.       Picture         =   SUMMARY.FRX:0000
  24.       Speed           =   162
  25.       TabIndex        =   7
  26.       TextPosition    =   2  'Left
  27.       Top             =   3720
  28.       Width           =   480
  29.    End
  30.    Begin AniPushButton AniButton1 
  31.       BackColor       =   &H00FFFFFF&
  32.       Caption         =   "Back Page"
  33.       ForeColor       =   &H00000000&
  34.       Height          =   465
  35.       Index           =   1
  36.       Left            =   0
  37.       Picture         =   SUMMARY.FRX:05E2
  38.       Speed           =   162
  39.       TabIndex        =   6
  40.       TextPosition    =   1  'Right
  41.       Top             =   3675
  42.       Width           =   1515
  43.    End
  44.    Begin AniPushButton AniButton1 
  45.       BackColor       =   &H00FFFFFF&
  46.       Caption         =   "Next Page"
  47.       ForeColor       =   &H00000000&
  48.       Height          =   465
  49.       Index           =   0
  50.       Left            =   5760
  51.       Picture         =   SUMMARY.FRX:148E
  52.       Speed           =   162
  53.       TabIndex        =   5
  54.       TextPosition    =   2  'Left
  55.       Top             =   3600
  56.       Width           =   1440
  57.    End
  58.    Begin AniPushButton AniButton3 
  59.       BackColor       =   &H00FFFFFF&
  60.       Cycle           =   1  'By frame
  61.       Height          =   480
  62.       Index           =   0
  63.       Left            =   4800
  64.       PictDrawMode    =   1  'Autosize control
  65.       Picture         =   SUMMARY.FRX:233A
  66.       TabIndex        =   10
  67.       Top             =   3600
  68.       Width           =   480
  69.    End
  70.    Begin PictureBox Picture1 
  71.       AutoRedraw      =   -1  'True
  72.       Height          =   735
  73.       Left            =   360
  74.       ScaleHeight     =   705
  75.       ScaleWidth      =   345
  76.       TabIndex        =   9
  77.       Top             =   2160
  78.       Width           =   375
  79.    End
  80.    Begin VHedit HEdit2 
  81.       DelayRecog      =   -1  'True
  82.       FontBold        =   -1  'True
  83.       FontItalic      =   0   'False
  84.       FontName        =   "MS Sans Serif"
  85.       FontSize        =   18
  86.       FontStrikethru  =   0   'False
  87.       FontUnderline   =   0   'False
  88.       Height          =   1575
  89.       InflateBottom   =   270
  90.       InflateLeft     =   270
  91.       InflateRight    =   270
  92.       InflateTop      =   270
  93.       Left            =   4080
  94.       TabIndex        =   8
  95.       Top             =   1800
  96.       Version         =   268435458
  97.       Width           =   2775
  98.    End
  99.    Begin VHedit HEdit1 
  100.       DelayRecog      =   -1  'True
  101.       FontBold        =   -1  'True
  102.       FontItalic      =   0   'False
  103.       FontName        =   "MS Sans Serif"
  104.       FontSize        =   18
  105.       FontStrikethru  =   0   'False
  106.       FontUnderline   =   0   'False
  107.       Height          =   2055
  108.       InflateBottom   =   270
  109.       InflateLeft     =   270
  110.       InflateRight    =   270
  111.       InflateTop      =   270
  112.       Left            =   960
  113.       TabIndex        =   0
  114.       Top             =   1560
  115.       Version         =   268435458
  116.       Width           =   2775
  117.    End
  118.    Begin ListBox List2 
  119.       BackColor       =   &H00FF0000&
  120.       FontBold        =   -1  'True
  121.       FontItalic      =   0   'False
  122.       FontName        =   "MS Sans Serif"
  123.       FontSize        =   12
  124.       FontStrikethru  =   0   'False
  125.       FontUnderline   =   0   'False
  126.       ForeColor       =   &H00FFFFFF&
  127.       Height          =   630
  128.       Left            =   3360
  129.       TabIndex        =   2
  130.       Top             =   600
  131.       Width           =   2655
  132.    End
  133.    Begin ListBox List1 
  134.       BackColor       =   &H00FF0000&
  135.       FontBold        =   -1  'True
  136.       FontItalic      =   0   'False
  137.       FontName        =   "MS Sans Serif"
  138.       FontSize        =   12
  139.       FontStrikethru  =   0   'False
  140.       FontUnderline   =   0   'False
  141.       ForeColor       =   &H00FFFFFF&
  142.       Height          =   930
  143.       Left            =   360
  144.       TabIndex        =   1
  145.       Top             =   600
  146.       Width           =   2415
  147.    End
  148.    Begin Label Label2 
  149.       Alignment       =   2  'Center
  150.       BackColor       =   &H00FFFFFF&
  151.       Caption         =   "COMMENTS"
  152.       FontBold        =   -1  'True
  153.       FontItalic      =   0   'False
  154.       FontName        =   "MS Sans Serif"
  155.       FontSize        =   18
  156.       FontStrikethru  =   0   'False
  157.       FontUnderline   =   0   'False
  158.       Height          =   495
  159.       Left            =   3360
  160.       TabIndex        =   4
  161.       Top             =   0
  162.       Width           =   3015
  163.    End
  164.    Begin Label Label1 
  165.       Alignment       =   2  'Center
  166.       BackColor       =   &H00FFFFFF&
  167.       Caption         =   "DIAGNOSIS"
  168.       FontBold        =   -1  'True
  169.       FontItalic      =   0   'False
  170.       FontName        =   "MS Sans Serif"
  171.       FontSize        =   18
  172.       FontStrikethru  =   0   'False
  173.       FontUnderline   =   0   'False
  174.       ForeColor       =   &H00000000&
  175.       Height          =   495
  176.       Left            =   120
  177.       TabIndex        =   3
  178.       Top             =   0
  179.       Width           =   2535
  180.    End
  181. End
  182.  
  183. Sub AniButton1_Click (Index As Integer)
  184. If smartform(7) Then
  185.  
  186.         Select Case Index
  187.         Case 1
  188.         MDIMForm.Show
  189.         summary.Hide
  190.         Case 0
  191.         admit.Picture1.Cls
  192.         admit.Picture1.AutoRedraw = -1
  193.         admit.Picture1.Scale (0, 0)-(3, 4)
  194.         admit.Picture1.CurrentX = .8
  195.         admit.Picture1.CurrentY = 1.2
  196.         admit.Picture1.Print "CLICK"
  197.         admit.Picture1.CurrentX = 1
  198.         admit.Picture1.CurrentY = 2
  199.         admit.Picture1.Print " TO"
  200.         admit.Picture1.CurrentX = .6
  201.         admit.Picture1.CurrentY = 2.8
  202.         admit.Picture1.Print "RETURN"
  203.         admit.Show
  204.         summary.Hide
  205.         End Select
  206. Else
  207. formcheck "Summary"
  208. End If
  209.  
  210. End Sub
  211.  
  212. Sub AniButton2_Click ()
  213. If smartform(7) Then
  214.  
  215. menumode summary
  216. Else
  217. formcheck "Summary"
  218. End If
  219.  
  220. End Sub
  221.  
  222. Sub AniButton3_Click (Index As Integer)
  223. Select Case anibutton3(0).Value
  224. Case 2
  225.     screen.MousePointer = 11
  226.     Picture1.AutoRedraw = -1
  227.     bounce summary, summary.Picture1
  228.     Picture1.Picture = Picture1.Image
  229.     Picture1.Visible = -1
  230.     
  231.     Picture1.AutoRedraw = 0
  232.     screen.MousePointer = 0
  233. hedit1.Visible = 0
  234. hedit2.Visible = 0
  235. Case 1
  236.  
  237. hedit1.Visible = -1
  238. hedit2.Visible = -1
  239. Picture1.Visible = 0
  240. hedit1.SetFocus
  241. hedit1.SelStart = 0
  242. hedit2.SelStart = 0
  243. 'hedit1.sellength = Len(hedit1.text)
  244. 'hedit2.sellength = Len(hedit2.text)
  245. hedit1.Refresh
  246. hedit2.Refresh
  247.  
  248. End Select
  249. End Sub
  250.  
  251. Sub Form_Load ()
  252. summary.Move 0, 0, screen.Width, screen.Height
  253.  
  254. anibutton1(1).Move .1 * anibutton1(1).Width, summary.ScaleHeight - 1.1 * anibutton1(1).Height
  255. anibutton2.Move (summary.ScaleWidth - anibutton2.Width) / 2, summary.ScaleHeight - 1.1 * anibutton2.Height
  256. anibutton3(0).Move (summary.ScaleWidth - anibutton2.Width) / 2 + 1.3 * anibutton3(0).Width, summary.ScaleHeight - 1.1 * anibutton2.Height
  257. anibutton1(0).Move summary.ScaleWidth - 1.1 * anibutton1(0).Width, summary.ScaleHeight - 1.1 * anibutton1(0).Height
  258.  
  259. label1.Move 0, 0, summary.ScaleWidth \ 2, summary.ScaleHeight \ 15
  260. list1.Move 0, label1.Height, summary.ScaleWidth \ 2, summary.ScaleHeight * 2 / 5
  261. hedit1.Move 0, label1.Height + list1.Height, summary.ScaleWidth \ 2.1, summary.ScaleHeight * 2.3 / 5
  262.  
  263.  
  264. label2.Move summary.ScaleWidth \ 2, 0, summary.ScaleWidth \ 2, summary.ScaleHeight \ 15
  265. list2.Move summary.ScaleWidth \ 2, label2.Height, summary.ScaleW